home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / workbench / monitory / amyload / macros.i < prev    next >
Text File  |  1987-11-15  |  1KB  |  96 lines
  1. IF        MACRO
  2. ifok        SET     0
  3.         IFC     \1,eq
  4.         bne.s   else\2
  5. ifok        SET     1
  6.         ENDC
  7.         IFC     \1,ne
  8.         beq.s   else\2
  9. ifok        SET     1
  10.         ENDC
  11.         IFC     \1,ge
  12.         blt.s   else\2
  13. ifok        SET     1
  14.         ENDC
  15.         IFC     \1,gt
  16.         ble.s   else\2
  17. ifok        SET     1
  18.         ENDC
  19.         IFC     \1,le
  20.         bgt.s   else\2
  21. ifok        SET     1
  22.         ENDC
  23.         IFC     \1,lt
  24.         bge.s   else\2
  25. ifok        SET     1
  26.         ENDC
  27.         IFEQ    ifok
  28.         FAIL    'Bad IF'
  29.         ENDC
  30.         ENDM
  31.  
  32. ELSE        MACRO
  33.         bra.s   fi\1
  34. else\1:
  35.         ENDM
  36.  
  37. FI        MACRO
  38.         IFND    else\1
  39. else\1:
  40.         ENDC
  41. fi\1:
  42.         ENDM
  43.  
  44. DO        MACRO
  45. do\1:
  46.         ENDM
  47.  
  48. OD        MACRO
  49.         bra.s   do\1
  50. od\1:
  51.         ENDM
  52.  
  53. ODL        MACRO
  54.         bra     do\1
  55. od\1:
  56.         ENDM
  57.  
  58. WHILE        MACRO
  59. whilok        SET     0
  60.         IFC     \1,eq
  61.         bne.s   od\2
  62. whilok        SET     1
  63.         ENDC
  64.         IFC     \1,ne
  65.         beq.s   od\2
  66. whilok        SET     1
  67.         ENDC
  68.         IFC     \1,ge
  69.         blt.s   od\2
  70. whilok        SET     1
  71.         ENDC
  72.         IFC     \1,gt
  73.         ble.s   od\2
  74. whilok        SET     1
  75.         ENDC
  76.         IFC     \1,le
  77.         bgt.s   od\2
  78. whilok        SET     1
  79.         ENDC
  80.         IFC     \1,lt
  81.         bge.s   od\2
  82. whilok        SET     1
  83.         ENDC
  84.         IFEQ    whilok
  85.         FAIL    'Bad WHILE'
  86.         ENDC
  87.         ENDM
  88.  
  89. UNTIL        MACRO
  90.         b\1.s   od\2
  91.         ENDM
  92.  
  93. QUIF        MACRO
  94.         b\1.s   od\2
  95.         ENDM
  96.